From 78884dd9587f040948633822bbba26765aa9ed31 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 2 Oct 2006 02:29:19 +0000 Subject: [PATCH] (undo-elt-crosses-region): Fix the inequalities. --- lisp/simple.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 105c5a9afce..8bd3a30a59b 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1648,12 +1648,12 @@ is not *inside* the region START...END." ((null (car undo-elt)) ;; (nil PROPERTY VALUE BEG . END) (let ((tail (nthcdr 3 undo-elt))) - (not (or (< (car tail) end) - (> (cdr tail) start))))) + (and (< (car tail) end) + (> (cdr tail) start)))) ((integerp (car undo-elt)) ;; (BEGIN . END) - (not (or (< (car undo-elt) end) - (> (cdr undo-elt) start)))))) + (and (< (car undo-elt) end) + (> (cdr undo-elt) start))))) ;; Return the first affected buffer position and the delta for an undo element ;; delta is defined as the change in subsequent buffer positions if we *did* -- 2.30.2